﻿Imports System.Data
Imports System.Configuration
Imports CrystalDecisions.CrystalReports.Engine
Imports System.Configuration.ConfigurationManager
Imports CondorTravel.BC
Imports CondorTravel.BE
Imports CondorTravelUTIL.DL

Public Class RptServicios
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try 

            Dim objServicioBE As ServicioBE
            Dim strTitulo As String = ""
            objServicioBE = New ServicioBE
            objServicioBE.NombreServicio = "" : objServicioBE.CodProveedor = 0
            objServicioBE.FechaInicio = "" : objServicioBE.FechaFin = ""
            objServicioBE.Estado = "" : objServicioBE.codPais = 0 : objServicioBE.codCiudad = 0
            If Not Request.QueryString("strSer").Trim Is Nothing Then
                If Request.QueryString("strSer").Trim <> "" Then
                    objServicioBE.NombreServicio = Request.QueryString("strSer").Trim
                End If
            End If
            If Not Request.QueryString("strPrv").Trim Is Nothing Then
                If Request.QueryString("strPrv").Trim <> "" Then
                    objServicioBE.DesProveedor = Request.QueryString("strPrv").Trim
                End If
            End If
            If Not Request.QueryString("strFIni").Trim Is Nothing And Not Request.QueryString("strFFin").Trim Is Nothing Then
                If Request.QueryString("strFIni").Trim <> "" And Request.QueryString("strFFin").Trim <> "" Then
                    objServicioBE.FechaInicio = Request.QueryString("strFIni").Trim
                    objServicioBE.FechaFin = Request.QueryString("strFFin").Trim
                    strTitulo = "Rango de " & objServicioBE.FechaInicio & " hasta " & objServicioBE.FechaFin
                End If
            End If
            If Not Request.QueryString("strEsta").Trim Is Nothing Then
                If Request.QueryString("strEsta").Trim <> "" Then
                    objServicioBE.Estado = Request.QueryString("strEsta").Trim
                End If
            End If
            If Not Request.QueryString("strPai").Trim Is Nothing Then
                If Val(Request.QueryString("strPai").Trim) > 0 Then
                    objServicioBE.codPais = Request.QueryString("strPai").Trim
                End If
            End If
            If Not Request.QueryString("strCiu").Trim Is Nothing Then
                If Val(Request.QueryString("strCiu").Trim) > 0 Then
                    objServicioBE.codCiudad = Request.QueryString("strCiu").Trim
                End If
            End If

            Dim dtDatos As New DataTable
            Dim objServicioBC As ServicioBC
            objServicioBC = New ServicioBC
            dtDatos = objServicioBC.ListarDtsServicio(objServicioBE).Tables(0)
            If dtDatos.Rows.Count <= 0 Then
                lblError.Visible = True
                crvRptServicios.Visible = False
            Else
                lblError.Visible = False
                crvRptServicios.Visible = True
            End If
            ' Asigno el reporte  
            Dim CrReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
            CrReport.Load(Server.MapPath("~/pages/Reportes/crtRptServicios.rpt"))
            Dim StrPunRec As TextObject = CrReport.ReportDefinition.ReportObjects.Item("txtUser")
            StrPunRec.Text = CType(Session("usuario"), UsuariosBE).CodUsuario
            Dim StrTit As TextObject = CrReport.ReportDefinition.ReportObjects.Item("txtTitulo")
            StrTit.Text = strTitulo 
            CrReport.SetDataSource(dtDatos)
            crvRptServicios.ReportSource = CrReport


        Catch ex As ApplicationException
            Response.Write(ex.Message.ToString())
        End Try
    End Sub

End Class